﻿Imports System.Text
Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports Moca.Db

<TestClass()> Public Class DbmsTest

    Private testContextInstance As TestContext

    '''<summary>
    '''現在のテストの実行についての情報および機能を
    '''提供するテスト コンテキストを取得または設定します。
    '''</summary>
    Public Property TestContext() As TestContext
        Get
            Return testContextInstance
        End Get
        Set(value As TestContext)
            testContextInstance = value
        End Set
    End Property

#Region "追加のテスト属性"
    '
    'テストを作成するときに、次の追加属性を使用することができます:
    '
    'クラスの最初のテストを実行する前にコードを実行するには、ClassInitialize を使用
    '<ClassInitialize()>  _
    'Public Shared Sub MyClassInitialize(ByVal testContext As TestContext)
    'End Sub
    '
    'クラスのすべてのテストを実行した後にコードを実行するには、ClassCleanup を使用
    '<ClassCleanup()>  _
    'Public Shared Sub MyClassCleanup()
    'End Sub
    '
    '各テストを実行する前にコードを実行するには、TestInitialize を使用
    '<TestInitialize()>  _
    'Public Sub MyTestInitialize()
    'End Sub
    '
    '各テストを実行した後にコードを実行するには、TestCleanup を使用
    '<TestCleanup()>  _
    'Public Sub MyTestCleanup()
    'End Sub
    '
#End Region

    <TestMethod()> Public Sub TestMethod1()
        Dim dao As Db.Impl.DaoGetter
        Dim dbmsWk As Dbms
        Dim dt As DataTable

        dbmsWk = New Dbms("MyDb", "Oracle.DataAccess.Client", "DATA SOURCE=MyDb;PASSWORD=moca;PERSIST SECURITY INFO=True;USER ID=MOCA")

        dao = New Db.Impl.DaoGetter(dbmsWk)

        dt = dao.Go("select * from ""tbDemoEntities""")
    End Sub

End Class